# paste all cells in a vector

paste_vec <- function(vec = c(), sep = " "){
  out <- ""
  for(i in vec){
    out <- paste(out, i, sep = sep)
  }
  return(out)
}

#### TEST AREA ####
# 
# paste(c("a", "b", "c", "d"), sep = "--")
# paste_vec(c("a", "b", "c", "d"), sep = "--")